home *** CD-ROM | disk | FTP | other *** search
/ BCI NET / BCI NET Dec 94.iso / archives / telecomm / bbs / tbbs093.lha / Rexx / MakeNews.rexx < prev    next >
OS/2 REXX Batch file  |  1994-02-15  |  2KB  |  72 lines
  1. /* Adds news to BBS:Text/News.txt */
  2.  
  3. address command
  4.  
  5. if ~open('tmp', 'T:mknews.tmp', 'W') then do
  6.     say "Couldn't create T:mknews.tmp"
  7.     exit 0
  8.     end
  9.  
  10. if open('hdr', 'BBS:Text/NewsHeader.txt', 'R') then do
  11.     do while ~eof('hdr')
  12.         hdrln = readln('hdr')
  13.         if ~eof('hdr') then do
  14.             pos = index(hdrln, '@DATE@')
  15.             if pos > 0 then do
  16.                 thedate = date('E')
  17.                 thedate = substr(thedate, 1, 2)||"-"||substr(date('M'), 1, 3)||"-"||substr(thedate, 7, 2)
  18.                 hdrln = substr(hdrln, 1, pos - 1)||thedate||substr(hdrln, pos + 6, length(hdrln) - (pos + 5))
  19.                 end
  20.             pos = index(hdrln, '@TIME@')
  21.             if pos > 0 then do
  22.                 hdrln = delstr(hdrln, pos, 6)
  23.                 thetime = time('N')
  24.                 hdrln = insert(hdrln, thetime, pos, length(thetime))
  25.                 end
  26.             call writeln 'tmp', hdrln
  27.             end
  28.         end
  29.     call close 'hdr'
  30.     end
  31.  
  32. call close 'tmp'
  33.  
  34. "ced T:mknews.tmp -keepio"
  35.  
  36. if ~open('tmp', 'T:mknews.tmp', 'R') then do
  37.     say "Couldn't find T:mknews.tmp"
  38.     exit 0
  39.     end
  40.  
  41. "delete BBS:Text/OldNews.txt QUIET"
  42. "rename BBS:Text/News.txt BBS:Text/OldNews.txt QUIET"
  43.  
  44. if open('news', 'BBS:Text/News.txt', 'W') then do
  45.     numlines = 0
  46.     do while ~eof('tmp')
  47.         call readln 'tmp'
  48.         numlines = numlines + 1
  49.         end
  50.     if numlines ~= 0 then numlines = numlines - 1
  51.     call seek 'tmp', 0, 'B'
  52.     call writeln 'news', date('I')
  53.     call writeln 'news', numlines
  54.     do ln = 1 to numlines
  55.         call writeln 'news', readln('tmp')
  56.         end
  57.     if open('oldnews', 'BBS:Text/OldNews.txt', 'R') then do
  58.         do while eof('oldnews') = 0
  59.             call writeln 'news', readln('oldnews')
  60.             end
  61.         call close 'oldnews'
  62.         end
  63.     call close 'news'
  64.     "delete BBS:Text/OldNews.txt QUIET"
  65.     end
  66.  
  67. call close 'tmp'
  68.  
  69. "delete T:mknews.tmp QUIET"
  70.  
  71. exit 0
  72.